Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / ctoolbar.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-05-22 | 17.6 KB | 553 lines

VERSION 2.00 Begin Form frmToolBar Caption = "Tool Bar Demo" ClientHeight = 1215 ClientLeft = 75 ClientTop = 855 ClientWidth = 9705 ClipControls = 0 'False Height = 1620 Icon = CTOOLBAR.FRX:0000 Left = 15 LinkTopic = "Form3" ScaleHeight = 1215 ScaleWidth = 9705 Top = 510 Width = 9825 Begin CUACommand cmdOK Caption = "OK" Default = -1 'True Height = 345 Left = 8400 StandardButton = 1 'OK TabIndex = 43 Top = 855 Width = 1260 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 20 Left = 7410 StandardButton = 7 'Print TabIndex = 42 Top = 30 Width = 360 End Begin CUAToolTips tip1 BackColor = &H0080FFFF& Caption = "ToolTips" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 3885 TabIndex = 41 Top = 870 Width = 825 End Begin PictureBox picTool AutoSize = -1 'True Height = 255 Left = 3675 Picture = CTOOLBAR.FRX:0302 ScaleHeight = 225 ScaleWidth = 4800 TabIndex = 12 Top = 870 Visible = 0 'False Width = 4830 End Begin CUAStatus sts2 Align = 1 'Align Top BackColor = &H00C0C0C0& ClipControls = 0 'False Height = 405 Left = 0 TabIndex = 11 Top = 0 Width = 9705 Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 14 Left = 8535 TabIndex = 14 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 13 Left = 8190 TabIndex = 15 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 12 Left = 7845 TabIndex = 16 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 11 Left = 7065 TabIndex = 17 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 10 Left = 6585 TabIndex = 18 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 9 Left = 6135 TabIndex = 19 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 8 Left = 5790 TabIndex = 20 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 7 Left = 5445 TabIndex = 21 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 6 Left = 5100 TabIndex = 22 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 5 Left = 4755 TabIndex = 23 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 4 Left = 4290 TabIndex = 24 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 3 Left = 3945 TabIndex = 25 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomCount = 20 Height = 330 Index = 2 Left = 3600 TabIndex = 26 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomButton = 3 CustomCount = 20 Height = 330 Index = 1 Left = 3255 TabIndex = 27 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom CustomButton = 2 CustomCount = 20 Height = 330 Index = 0 Left = 2910 TabIndex = 28 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Height = 330 Index = 6 Left = 2430 StandardButton = 12 'Undo TabIndex = 6 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Height = 330 Index = 5 Left = 1965 StandardButton = 11 'Paste TabIndex = 5 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Height = 330 Index = 4 Left = 1620 StandardButton = 10 'Copy TabIndex = 4 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Height = 330 Index = 3 Left = 1275 StandardButton = 9 'Cut TabIndex = 3 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Enabled = 0 'False Height = 330 Index = 2 Left = 795 StandardButton = 6 'Save TabIndex = 2 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Height = 330 Index = 1 Left = 450 StandardButton = 5 'Open TabIndex = 1 Top = 30 Width = 360 End Begin CUAToolButton tbn1 Height = 330 Index = 0 Left = 105 StandardButton = 4 'New TabIndex = 0 Top = 30 Width = 360 End End Begin CUAStatus sts1 Align = 1 'Align Top BackColor = &H00C0C0C0& ClipControls = 0 'False Height = 405 Left = 0 TabIndex = 7 Top = 405 Width = 9705 Begin CUAToolButton tbnWord ButtonSource = 1 'Custom ButtonType = 1 'Attribute CustomCount = 20 Height = 330 Index = 19 Left = 9090 TabIndex = 29 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom ButtonType = 1 'Attribute CustomCount = 20 Height = 330 Index = 18 Left = 8640 TabIndex = 30 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom ButtonType = 1 'Attribute CustomCount = 20 Height = 330 Index = 17 Left = 8295 TabIndex = 31 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom ButtonType = 1 'Attribute CustomCount = 20 Height = 330 Index = 16 Left = 7950 TabIndex = 32 Top = 30 Width = 360 End Begin CUAToolButton tbnWord ButtonSource = 1 'Custom ButtonType = 1 'Attribute CustomCount = 20 Height = 330 Index = 15 Left = 7605 TabIndex = 33 Top = 30 Value = 1 'Down Width = 360 End Begin CUAToolButton tbnJust ButtonType = 1 'Attribute Height = 330 Index = 3 Left = 7155 StandardButton = 34 'Just TabIndex = 34 Top = 30 Width = 360 End Begin CUAToolButton tbnJust ButtonType = 1 'Attribute Height = 330 Index = 2 Left = 6810 StandardButton = 37 'Right TabIndex = 35 Top = 30 Width = 360 End Begin CUAToolButton tbnJust ButtonType = 1 'Attribute Height = 330 Index = 1 Left = 6465 StandardButton = 36 'Center TabIndex = 36 Top = 30 Width = 360 End Begin CUAToolButton tbnJust ButtonType = 1 'Attribute Height = 330 Index = 0 Left = 6120 StandardButton = 35 'Left TabIndex = 37 Top = 30 Value = 1 'Down Width = 360 End Begin CUACombo cbo3 BorderStyle = 3 'Inset Height = 300 Left = 4080 TabIndex = 10 Text = "10" Top = 45 Width = 765 End Begin CUACombo cbo2 BorderStyle = 3 'Inset Height = 300 Left = 1905 TabIndex = 9 Text = "Times New Roman" Top = 45 Width = 2070 End Begin CUACombo cbo1 BorderStyle = 3 'Inset Height = 300 Left = 90 TabIndex = 8 Text = "Normal" Top = 45 Width = 1725 End Begin CUAToolButton tbnFontAttr ButtonType = 1 'Attribute Height = 330 Index = 2 Left = 5640 StandardButton = 40 'Under TabIndex = 38 Top = 30 Width = 360 End Begin CUAToolButton tbnFontAttr ButtonType = 1 'Attribute Height = 330 Index = 1 Left = 5295 StandardButton = 39 'Italic TabIndex = 39 Top = 30 Width = 360 End Begin CUAToolButton tbnFontAttr ButtonType = 1 'Attribute Height = 330 Index = 0 Left = 4950 StandardButton = 38 'Bold TabIndex = 40 Top = 30 Width = 360 End End Begin CUALabel lbl1 Caption = "This is an example of the tool bar in Word 2.0." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 195 Left = 120 TabIndex = 13 Top = 900 Width = 3480 End Option Explicit Sub cmdOK_Click () Unload Me End Sub Sub Form_Load () Dim I% For I = 0 To 19 tbnWord(I).Picture = picTool tbnWord(I).CustomCount = 20 tbnWord(I).CustomButton = I + 1 Next End Sub Sub tbnJust_Click (Index As Integer) Dim I% For I = 0 To 3 If I <> Index Then tbnJust(I).Value = 0 Next End Sub Sub tip1_NeedText (hWnd As Integer, ToolText As String) Select Case hWnd Case tbn1(0).hWnd ToolText = "New" Case tbn1(1).hWnd ToolText = "Open" Case tbn1(2).hWnd ToolText = "Save" Case tbn1(3).hWnd ToolText = "Cut" Case tbn1(4).hWnd ToolText = "Copy" Case tbn1(5).hWnd ToolText = "Paste" Case tbn1(6).hWnd ToolText = "Undo" Case tbnFontAttr(0).hWnd ToolText = "Bold" Case tbnFontAttr(1).hWnd ToolText = "Italic" Case tbnFontAttr(2).hWnd ToolText = "Underline" Case tbnJust(0).hWnd ToolText = "Left" Case tbnJust(1).hWnd ToolText = "Center" Case tbnJust(2).hWnd ToolText = "Right" Case tbnJust(3).hWnd ToolText = "Margin" Case tbnWord(0).hWnd ToolText = "Reverses the last action" Case tbnWord(1).hWnd ToolText = "Creates a numbered list based on the current defaults" Case tbnWord(2).hWnd ToolText = "Creates a bulleted list based on the current defaults" Case tbnWord(3).hWnd ToolText = "Moves the left indent to the previous tab stop" Case tbnWord(4).hWnd ToolText = "Moves the left indent to the next tab stop" Case tbnWord(5).hWnd ToolText = "Inserts a table" Case tbnWord(6).hWnd ToolText = "Changes the column format within the sections" Case tbnWord(7).hWnd ToolText = "Inserts an empty frame or frames the selected text" Case tbnWord(8).hWnd ToolText = "Inserts a Microsoft Draw object" Case tbnWord(9).hWnd ToolText = "Inserts a Microsoft Graph object" Case tbnWord(10).hWnd ToolText = "Creates an envelope that will print along with the current document" Case tbnWord(11).hWnd ToolText = "Checks the spelling in the active document" Case tbnWord(12).hWnd ToolText = "Prints the active document using the current defaults" Case tbnWord(13).hWnd ToolText = "Scales the editing view to see the whole page in Page Layout view" Case tbnWord(14).hWnd ToolText = "Scales the editing view to 100% in Normal view" Case tbnWord(15).hWnd ToolText = "Scales the editing view to see the width of the page" End Select End Sub